ocr: on: storeNew Alias 0 local f1 :"" 12: "" ifr not file.getFileDialog ("File to create alias for?",@f1,0) return (false) f2 =1 file.filetromPath (f1) if not dialog.ask ("Save in Apple Menu under what name?", @f2) return (false) file.new Alias (fl,file.getsystemFolderPath 0+":Apple Menu Items:" + f2) speaker .beep 0 dialog.notity ("Done!") return (true)